home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_16637.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  7.7 KB  |  390 lines
  1. -- card: 16637 from stack: in
  2. -- bmap block id: 16851
  3. -- flags: 0000
  4. -- background id: 5931
  5. -- name: yeslead
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global time1
  9.   global Silver
  10.   global Mercury
  11.   global Lead
  12.   global key
  13.   put empty into bkgnd field "info"
  14.   hide card field "info2"
  15.   put empty into card field "info1"
  16.   show card field "info1"
  17.   put "Click Here to" into line 2 of card field "info1"
  18.   put "Continue When Ready" into line 3 of card field "info1"
  19.   show card button "info1"
  20.   set the highlight of card button "info1" to true
  21. end opencard
  22.  
  23.  
  24.  
  25.  
  26.  
  27. on check
  28.   global Silver
  29.   global Mercury
  30.   global Lead
  31.   global reagent
  32.   global route
  33.   global score
  34.   if reagent = "Ammonia"  and Mercury = "Mercury" then
  35.     go to card "yesMercury"
  36.     put "Result of Adding Ammonia " into line 1 of bkgnd field "info"
  37.     put "Formation of Grey Precipitate" into line 2 of bkgnd field "info"
  38.   end if
  39.  
  40.   if reagent = "Ammonia"  and Mercury <> "Mercury" then
  41.     go to  card "noMercury"
  42.  
  43.   end if
  44.  
  45.   if  reagent<> "Ammonia" then
  46.     put score + 10 into score
  47.  
  48.     put empty into bkgnd field "info"
  49.     put "Please Try Again" into line 1 of bkgnd field "info"
  50.     put "or Examine Flow Chart" into line 2 of bkgnd field "info"
  51.     repeat 2
  52.       set the highlight of card button "flow Chart" to true
  53.       wait 1 second
  54.       set the highlight of card button "flow Chart" to false
  55.       wait 1 second
  56.     end repeat
  57.  
  58.   end if
  59.  
  60. end check
  61.  
  62.  
  63.  
  64.  
  65. -- part 4 (field)
  66. -- low flags: 81
  67. -- high flags: 0004
  68. -- rect: left=0 top=20 right=178 bottom=387
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 21
  73. -- text size: 24
  74. -- style flags: 0
  75. -- line height: 32
  76. -- part name: note
  77.  
  78.  
  79. -- part 11 (button)
  80. -- low flags: 00
  81. -- high flags: 2000
  82. -- rect: left=3 top=44 right=106 bottom=54
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Hydrochloric Acid
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   global route
  94.   global reagent
  95.   global lastClick
  96.  
  97.   if the seconds - lastClick < 4 then exit mouseup
  98.   else put the seconds into lastClick
  99.   get the short name of me
  100.   put it into reagent
  101.   check
  102.  
  103.  
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 12 (button)
  109. -- low flags: 00
  110. -- high flags: 2000
  111. -- rect: left=64 top=44 right=106 bottom=115
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Nitric Acid
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.  
  123.   global reagent
  124.  
  125.   global lastClick
  126.  
  127.   if the seconds - lastClick < 4 then exit mouseup
  128.   else put the seconds into lastClick
  129.   get the short name of me
  130.   put it into reagent
  131.   check
  132.  
  133.  
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 13 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=125 top=44 right=106 bottom=176
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Distilled Water
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.  
  153.   global reagent
  154.   global lastClick
  155.  
  156.   if the seconds - lastClick < 4 then exit mouseup
  157.   else put the seconds into lastClick
  158.   get the short name of me
  159.   put it into reagent
  160.   check
  161.  
  162.  
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 14 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=184 top=44 right=106 bottom=235
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Potassium Dichromate
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   global route
  182.   global reagent
  183.   global lastClick
  184.  
  185.   if the seconds - lastClick < 4 then exit mouseup
  186.   else put the seconds into lastClick
  187.   get the short name of me
  188.   put it into reagent
  189.   check
  190.  
  191.  
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 15 (button)
  197. -- low flags: 00
  198. -- high flags: 2000
  199. -- rect: left=246 top=44 right=106 bottom=297
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Ammonia
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   global route
  211.   global reagent
  212.   global lastClick
  213.  
  214.   if the seconds - lastClick < 4 then exit mouseup
  215.   else put the seconds into lastClick
  216.   get the short name of me
  217.   put it into reagent
  218.   check
  219.  
  220.  
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 22 (field)
  226. -- low flags: 81
  227. -- high flags: 0000
  228. -- rect: left=389 top=212 right=283 bottom=507
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 0
  232. -- font id: 3
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: hold
  237.  
  238.  
  239. -- part 29 (field)
  240. -- low flags: 81
  241. -- high flags: 0001
  242. -- rect: left=161 top=212 right=319 bottom=195
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: f
  251.  
  252.  
  253. -- part 36 (button)
  254. -- low flags: 00
  255. -- high flags: 8002
  256. -- rect: left=434 top=205 right=254 bottom=509
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Flow Chart
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   push card
  268.   go to card id 7591
  269.   put 1 into zz
  270.   repeat until zz = 4
  271.     set the highlight of card button step4 to true
  272.     wait 30
  273.     set the highlight of card button step4 to false
  274.     wait 30
  275.     put zz+1 into zz
  276.   end repeat
  277.  
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 38 (field)
  283. -- low flags: 81
  284. -- high flags: 0004
  285. -- rect: left=1 top=112 right=205 bottom=390
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 3
  290. -- text size: 14
  291. -- style flags: 256
  292. -- line height: 18
  293. -- part name: Message
  294. ----- HyperTalk script -----
  295. on mouseup
  296.   hide card field "message"
  297. end mouseup
  298.  
  299.  
  300.  
  301. -- part 40 (field)
  302. -- low flags: 01
  303. -- high flags: 0004
  304. -- rect: left=2 top=184 right=296 bottom=159
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 21
  309. -- text size: 18
  310. -- style flags: 0
  311. -- line height: 24
  312. -- part name: info1
  313.  
  314.  
  315. -- part 41 (button)
  316. -- low flags: 00
  317. -- high flags: 0000
  318. -- rect: left=0 top=115 right=172 bottom=383
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: cv2
  327.  
  328.  
  329. -- part 44 (button)
  330. -- low flags: 00
  331. -- high flags: 4000
  332. -- rect: left=0 top=184 right=298 bottom=157
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: info1
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   set the highlight of card button "info1" to false
  344.   Hide card button "info1"
  345.   Hide card field "info1"
  346.   show card field "info2"
  347.   put "Ready for Next Reagent" into bkgnd field "info"
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 45 (field)
  353. -- low flags: 81
  354. -- high flags: 0001
  355. -- rect: left=238 top=193 right=330 bottom=394
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 0
  359. -- font id: 3
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: info2
  364.  
  365.  
  366. -- part contents for card part 4
  367. ----- text -----
  368. Please Wait While
  369. Computer Selects
  370. an Unknown for You
  371. to Analyze
  372.  
  373. -- part contents for card part 38
  374. ----- text -----
  375. Check Flow Chart
  376.  
  377. Centrifuge not used 
  378.  
  379. at this time
  380.  
  381. -- part contents for card part 40
  382. ----- text -----
  383.  
  384. Click Here to
  385. Continue When Ready
  386.  
  387. -- part contents for background part 8
  388. ----- text -----
  389. Result of Adding Potassium Dichromate
  390. Formation of Yellow Precipitate